home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / infoserv / www / cern / doc / www-talk.archive.Z / www-talk.archive / text0361.txt < prev    next >
Encoding:
Text File  |  1992-11-30  |  1.2 KB  |  40 lines
  1.  
  2. Here's a patch to add a function to fix all the existing
  3. HREFs in an HTML file so they'll have quotes around them.
  4.  
  5. Dan
  6.  
  7. *** /mnt/connolly/foo    Wed Nov 18 22:51:50 1992
  8. --- html-mode.el    Wed Nov 18 22:50:32 1992
  9. ***************
  10. *** 517,522 ****
  11. --- 517,543 ----
  12.                  (setq html-link-counter (1+ html-link-counter))
  13.                  (replace-string-in-buffer start (1- end)
  14.                   (format "%d" html-link-counter))))))))
  15. + 
  16. + (defun html-quote-hrefs ()
  17. +   "Insert quotes around all HREF attribute value literals.
  18. + 
  19. + This remedies the problem with old html files that can't be
  20. + processed by SGML parsers. That is, changes
  21. + <A HREF=foo> to <A HREF="foo">.
  22. + 
  23. + By Dan Connolly, so don't yell at Mark if it breaks."
  24. +   (interactive)
  25. +   (save-excursion
  26. +     (goto-char (point-min))
  27. +     (setq html-link-counter 0)
  28. +     (while (re-search-forward "<[aA][ \t\n]+\\([nN][aA][mM][eE]=[a-zA-Z0-9]+[ \t\n]+\\)?[hH][rR][eE][fF]=" (point-max) t)
  29. +       (cond ((null (looking-at "\""))
  30. +          (insert "\"")
  31. +          (re-search-forward "[ \t\n>]" (point-max) t)
  32. +          (forward-char -1)
  33. +          (insert "\"")
  34. +          ))
  35. +       ) ) )
  36.   
  37.   ;;; ------------------------------- html-mode --------------------------------
  38.   
  39.  
  40.